home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 86 / 086.d81 / states seminar (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  7.1 KB  |  237 lines
  1. 2 poke52,128:poke56,128:clr:a$=""
  2. 3 dv=peek(186):ifdv<8thendv=8
  3. 4 poke53280,0:poke53281,0:print"[147]":gosub60000:rem  goto7
  4. 5 sys57812"ss.font",8,0:poke780,0:poke781,0:poke782,128:sys65493
  5. 6 sys57812"input any.o",dv,0:poke780,0:poke781,60:poke782,3:sys65493
  6. 7 a$="":print"[147]":poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or1
  7. 8 poke53272,33:poke648,136:print"[147]"
  8. 9 dv=peek(186):ifdv<8thendv=8
  9. 10 dimi,j,k,mc,gh$,a$,bd$,t$,mt,nd,g,kk,e,cc,df,bx,by,ex,bd,rv,bc,yr$,pl,yw,x
  10. 11 dimln%,z$(51),dp(151),qu$(151,2),an(151),zz(51),yy(51),cc$(3),s$(3),df$(3)
  11. 12 mc=54272
  12. 18 gh$="                                        "
  13. 20 ba$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  14. 22 a$="[221][157][221][157][221][157][221][157][221][157][221][157][221][157]":fori=1to6:bd$=bd$+a$:next
  15. 25 poke53280,0:poke53281,0
  16. 26 cc$(0)="     [213]nited [211]tates     ":s$(0)="us"
  17. 28 cc$(1)=" [212]he [199]reat [215]hite [206]orth ":s$(1)="ca"
  18. 30 cc$(2)="       [196]ownunder       ":s$(2)="do"
  19. 35 df$(0)="     [197]asy [209]uestions    "
  20. 36 df$(1)="  [196]ifficult [209]uestions  "
  21. 37 df$(2)="    [193] [204]ittle of [194]oth   "
  22. 38 t$="[147][159]      [211] [212] [193] [212] [197] [211]    [211] [197] [205] [201] [206] [193] [210]"
  23. 50 gosub150:gosub380:gosub500:mt=15:nd=0:g=0
  24. 52 goto3520
  25. 54 :
  26. 60 fori=1toss(cc)+1:zz(i)=0:next
  27. 62 kk=int(rnd(0)*9)+1
  28. 64 fori=1to9
  29. 66 ifi=kkthenyy(i)=an(e):goto74
  30. 68 k=int(rnd(0)*ss(cc))+1
  31. 70 if(zz(k)=1)or(k=an(e))then68
  32. 72 yy(i)=k:zz(k)=1
  33. 74 next:return
  34. 75 :
  35. 150 poke53280,6:poke53281,7:print"[147]"
  36. 160 bx=1:by=1:ex=39:bd=21:rv=1:bc=0:gosub6760
  37. 170 poke214,2:print:printtab(4)"    [211][212][193][212][197][211][160][211][197][205][201][206][193][210] will test your"
  38. 180 printtab(4)"knowledge of the states of the
  39. 185 [153][163]4)"(NULL)nion, atnustralia and lenanada.
  40. 190 printtab(4)"[215]henever you are asked a question
  41. 200 [153][163]4)"you will be presented with 9"
  42. 210 [153][163]4)"possible answers.  (NULL)ress the"
  43. 220 [153][163]4)"number of the alternative you"
  44. 230 [153][163]4)"think is correct.  valach game"
  45. 240 [153][163]4)"consists of 15 questions.
  46. 250 printtab(4)"[144][215][193][199][197][210][201][206][199]: [212]his program allows you"
  47. 260 printtab(4)"to wager on your answers.  [217]ou"
  48. 270 printtab(4)"can't wager more than what's in"
  49. 280 printtab(4)"your banrkroll.  [217]ou are given"
  50. 290 printtab(4)"$15 when the game begins.  [212]he"
  51. 300 printtab(4)"game will end early if your"
  52. 310 printtab(4)"bankroll falls to $0.  [197]nter "chr$(34)"a"chr$(34)
  53. 320 printtab(4)"to bet your whole bankroll."
  54. 340 poke214,21:print:printtab(13)"[156][208][210][197][211][211][160][193][206][217][160][203][197][217]"
  55. 350 poke198,0
  56. 360 geta$:ifa$=""then360
  57. 370 return
  58. 378 :
  59. 380 poke53280,0:poke53281,0:printt$"":fori=0to2:printtab(8)"[154]"cc$(i):print:next
  60. 382 cc=0:poke214,10:print:print"       [156][213]se [195][210][211][210] [213][208][156]/[196][207][215][206][156] and [210][197][212][213][210][206]"
  61. 384 poke214,3+(2*cc):print:printtab(8)""cc$(cc)"[145]"
  62. 386 poke198,0
  63. 388 geta$:ifa$<>"[145]"anda$<>""anda$<>chr$(13)then388
  64. 390 ifa$=chr$(13)then399
  65. 392 printtab(8)"[154]"cc$(cc)
  66. 394 ifa$="[145]"thencc=cc-1:ifcc<0thencc=2
  67. 396 ifa$=""thencc=cc+1:ifcc>2thencc=0
  68. 398 goto384
  69. 399 poke781,11:sys59903:poke214,13:print
  70. 400 fori=0to2:printtab(8)"[154]"df$(i):print:next
  71. 402 df=0:poke214,20:print:print"       [156][213]se [195][210][211][210] [213][208][156]/[196][207][215][206][156] and [210][197][212][213][210][206]"
  72. 404 poke214,13+(2*df):print:printtab(8)""df$(df)"[145]"
  73. 406 poke198,0
  74. 408 geta$:ifa$<>"[145]"anda$<>""anda$<>chr$(13)then408
  75. 410 ifa$<>chr$(13)then412
  76. 411 poke781,21:sys59903:poke214,20:print:printtab(15)"[158][204]oading...":return
  77. 412 printtab(8)"[154]"df$(df)
  78. 414 ifa$="[145]"thendf=df-1:ifdf<0thendf=2
  79. 416 ifa$=""thendf=df+1:ifdf>2thendf=0
  80. 418 goto404
  81. 419 :
  82. 500 i=0:open8,dv,8,s$(cc):get#8,a$,a$
  83. 510 i=i+1:sys828,8,30:ifa$="*"thenss(cc)=i-1:goto530
  84. 515 z$(i)=a$:goto510
  85. 530 i=0
  86. 540 i=i+1
  87. 541 sys828,8,40:ifst<>0then550
  88. 542 qu$(i,0)=a$:sys828,8,40:qu$(i,1)=a$
  89. 545 sys828,8,5:an(i)=val(a$):ifst=0then540
  90. 550 close8:cp(cc)=i/2
  91. 560 return
  92. 3520 gosub5480
  93. 3530 i=rnd(-ti):poke53280,2
  94. 3540 ifdf=0thene=int(rnd(1)*cp(cc))+1
  95. 3545 ifdf=1thene=int(rnd(1)*cp(cc)+cp(cc))+1
  96. 3547 ifdf=2thene=int(rnd(1)*2*cp(cc))+1
  97. 3550 ifdp(e)then3540
  98. 3560 dp(e)=1
  99. 3630 poke214,3:print:printgh$
  100. 3640 print"[145]"gh$
  101. 3645 fori=0to24:poke217+i,peek(217+i)or128:next
  102. 3650 poke214,3:print:print" "qu$(e,0):print" "qu$(e,1)
  103. 3670 gosub5700:gosub6110
  104. 3672 poke214,13:print"[144]":gosub60
  105. 3673 fori=1to9:printtab(5)""z$(yy(i)):next
  106. 3680 poke214,7:print:print"[217]our answer?"
  107. 3690 bx=13:by=7:ex=16:bd=1:rv=0:bc=4:gosub6760
  108. 3700 poke198,0
  109. 3710 getyr$:ifyr$=""then3710
  110. 3730 ifyr$<"1"oryr$>"9"thengoto3680
  111. 3740 poke214,7:print:printtab(14)"[144]";yr$
  112. 3750 ifval(yr$)<>kkthen3770
  113. 3760 gosub6180:pl=0:mt=mt+yw:gosub6050:gosub6370:gosub5900:goto3920
  114. 3770 gosub6140:gosub6020:pl=0:mt=mt-yw:gosub5900
  115. 3920 poke214,12+kk:print:printtab(5)"[154]";z$(an(e))
  116. 3930 forx=1to2500:next
  117. 3940 nd=nd+1
  118. 3950 if(nd=15)or(mt=0)then6390
  119. 3990 goto3520
  120. 5480 poke53280,2
  121. 5490 print"[147]":poke53280,2:poke53281,1
  122. 5500 poke214,0:print:print"[145][159]             [211][212][193][212][197][211] [160][211][197][205][201][206][193][210]            ";
  123. 5510 print"[144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  124. 5520 printtab(14)"[144][209][213][197][211][212][201][207][206] #";nd+1
  125. 5530 poke214,9:print:print"[144][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
  126. 5540 gosub5900
  127. 5550 poke214,11:print:printtab(5)"[129][193]nswer [195]hoices"
  128. 5560 poke214,13:print:forx=1to9:printtab(2)"[144]                   ":nextx
  129. 5570 bx=1:by=13:ex=22:bd=9:rv=1:bc=7
  130. 5580 gosub6760
  131. 5590 poke214,13:print"[144]"
  132. 5600 fori=1to9
  133. 5610 printtab(2)""right$(str$(i),1)"."
  134. 5620 next
  135. 5630 return
  136. 5700 gosub6220:poke214,12:print
  137. 5710 printtab(25)"[129][217]our[157][157][157][157]bet? [144]$";
  138. 5720 yw$="":poke198,0
  139. 5730 ln%=len(str$(mt))-1:gosub50000:yw$=q9$
  140. 5870 ifyw$="a"thenyw=mt:goto5880
  141. 5875 yw=val(yw$)
  142. 5880 gosub5960
  143. 5890 return
  144. 5900 gosub6250:poke214,17:print:printtab(24)"[217]our  [194]ankroll"
  145. 5910 poke214,19:print:forx=1to3:printtab(25)"[156]            ":nextx
  146. 5920 ifpl=1thenreturn
  147. 5930 ifsn=0thenpoke214,20:print:printtab(27)"[156]$";mt
  148. 5940 pl=0
  149. 5950 return
  150. 5960 if(yw<=mt)and(mt>0)thenreturn
  151. 5965 ifyw=0thenpoke214,13:print:printtab(31)"[144]0":return
  152. 5970 poke214,12:print:printtab(25)"    ":printtab(25)"            ":goto5700
  153. 6020 pokemc+0,0:pokemc+1,10:pokemc+4,33:pokemc+5,15:pokemc+6,15:pokemc+24,11
  154. 6030 fory=1to200:next:pokemc+4,32:fory=1to100:next:pokemc+24,0
  155. 6040 return
  156. 6050 pokemc,0:pokemc+5,15:pokemc+6,15:pokemc+1,0:ki=30:pokemc+24,15
  157. 6060 forx=1to12:pokevc+33,1
  158. 6070 pokemc+1,ki:pokemc+4,17:forz=1to40:next:pokemc+4,16:ki=ki+4:next
  159. 6080 pokemc+24,0
  160. 6090 poke53281,1
  161. 6100 return
  162. 6110 pokemc+24,7:pokemc+23,0:pokemc+6,0:pokemc+5,12:pokemc+1,200
  163. 6120 pokemc+3,40:pokemc+4,0:pokemc+4,65
  164. 6130 formm=1to500:next:pokemc+4,0:return
  165. 6140 poke214,6:print:forx=1to3:printtab(21)"[144]             ":next
  166. 6150 poke214,0:print:print"[145][145][144]             [211][212][193][212][197][211]  [211][197][205][201][206][193][210]            ";
  167. 6160 poke214,7:print:printtab(23)"[144][201][206][195][207][210][210][197][195][212]":poke53280,11
  168. 6170 return
  169. 6180 poke214,6:print:forx=1to3:printtab(21)"             ":next
  170. 6190 poke214,7:print:printtab(25)"[210][201][199][200][212]!":poke53280,14
  171. 6200 poke214,0:print:print"[145][145]             [211][212][193][212][197][211]  [211][197][205][201][206][193][210]            ";
  172. 6210 return
  173. 6220 bx=23:by=11:ex=39:bd=4:bc=5:rv=1
  174. 6230 gosub6760
  175. 6240 return
  176. 6250 bx=23:by=17:ex=39:bd=5:bc=6:rv=1
  177. 6260 gosub6760
  178. 6270 return
  179. 6280 poke214,12:print:printtab(25)"    ":printtab(25)"             "
  180. 6290 goto5700
  181. 6370 bx=1:by=13:ex=22:bd=9:rv=1:bc=2:gosub6760
  182. 6380 return
  183. 6390 print"[147]":poke53280,7:poke53281,15
  184. 6400 bx=1:by=1:ex=39:bd=21:rv=1:bc=0:gosub6760
  185. 6410 poke214,4:print:printtab(17)"[144][211][213][205][205][193][210][217]"
  186. 6420 printtab(17)"[163][163][163][163][163][163][163]"
  187. 6430 poke214,10:print:printtab(7)"[198]inal [194]ankroll = $[144]";mt
  188. 6440 bx=4:by=9:ex=36:bd=3:bc=4:rv=0:gosub6760
  189. 6450 forx=1to1000:next
  190. 6460 poke214,14:print:mt=15:nd=0
  191. 6480 printtab(10)"1[144] - [206]ew [199]ame
  192. 6485 [153][163]10)"2stop - (NULL)ame chr$ame
  193. 6490 printtab(10)"3[144] - [210]eturn to [204][207][193][196][211][212][193][210]
  194. 6520 [161]a$:[139]a$[179]"1"[176]k$[177]"3"[167]6520
  195. 6530 [139]a$[178]"1"[167][138]7
  196. 6535 [139]a$[178]"3"[167]6540
  197. 6536 g[178]g[170]1:[139]g[172]15[178][177]cp(cc)[167]g[178]0:[129]i[178]1[164]2[172]cp(cc):dp(i)[178]0:[130]
  198. 6537 [137]3520
  199. 6540 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er%
  200. 6550 [153]"load":[151]53272,21:[160]15:[139]er%[179][177]63[167][128]
  201. 6560 [151]646,[194](53281):[153]"loadload"[199](34)"hello connect"[199](34)",8"
  202. 6570 [153]"run"
  203. 6580 [151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
  204. 6760 oc[178][194](646):[151]646,bc:rv$[178]"":[139]rv[167]rv$[178]"":rv[178]1
  205. 6770 [151]211,bx:[151]214,by:[158]58732:[153]rv$"or"[200](ba$,ex[171]bx[171]2)"^cmd";
  206. 6780 [153]rv$[200](bd$,bd[172]3):[153]rv$[166]bx)"on/"[200](ba$,ex[171]bx[171]2)"exp"
  207. 6790 [151]211,bx:[151]214,by[170]1:[158]58732:[153]rv$[200](bd$,bd[172]3)
  208. 6800 rv[178]1:[142]
  209. 6810 [129]x[178]1[164]2:bx[178]bx[171]1:by[178]by[171]1:ex[178]ex[170]1:bd[178]bd[170]2:bc[178][181]([187](1)[172]5)[170]3
  210. 6820 [141]6760:[130]:[142]
  211. 6830 rv[178]1:[129]x[178]1[164]4:bx[178]bx[170]1:by[178]by[170]1:ex[178]ex[171]1:bd[178]bd[171]2:bc[178][181]([187](1)[172]13)[170]2
  212. 6840 [141]6760:[130]:[142]
  213. 6850 [129]x[178]1[164]8:bx[178]bx[170]1:by[178]by[170]1:ex[178]ex[171]1:bd[178]bd[171]2:bc[178][181]([187](1)[172]14)[170]2:[141]6760
  214. 6860 [130]x:[142]
  215. 10000 [159]15,8,15,"i0":[152]15,"s0:states seminar":[160]15:[148]"states seminar",8:[128]
  216. 50000 q9$[178]"":u9[178]53280:[151]198,0
  217. 50010 [161]a$
  218. 50020 [151]646,[187](1)[172]15[170]2:[153]"tocmd";:[139]a$[178]""[167]50010
  219. 50030 [139]a$[178][199](13)[167][153]" ":[142]
  220. 50040 [139](a$[178][199](20)[175][195](q9$))[167]q9$[178][200](q9$,[195](q9$)[171]1):[137]50090
  221. 50050 [139][195](q9$)[177][178]ln%[167]t9%[178][194](u9):[151]u9,1:[151]u9,t9%:[137]50010
  222. 50060 [139](a$[179]"0"[176]a$[177]"9")[175](a$[179][177]"a")[167]50010
  223. 50070 q9$[178]q9$[170]a$
  224. 50080 [153]""a$;:[137]50010
  225. 50090 [153]" cmdcmd cmd";:[137]50010
  226. 60000 b9$[178]"                                      "
  227. 60010 [151]214,14:[153]:[153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefreprint#"
  228. 60020 [129]i[178]0[164]7:[153]b9$:[130]:[153]"  pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  229. 60030 b9$(0)[178]"(NULL) (NULL) atn (NULL) val (NULL)   (NULL) val (NULL) right$ (NULL) atn (NULL)
  230. 60040 b9$(1)="by [210]oger [206]orton
  231. 60050 b9$(2)[178]"(len) 1990 by (NULL)oftdisk, right$nc."
  232. 60060 b9$(3)[178]"(NULL)1.0 (NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #86"
  233. 60070 b9$(4)[178]"(NULL)ubscriptions 1-800-831-2694"
  234. 60080 b9$(5)[178]"atnll (NULL)ights (NULL)eserved"
  235. 60090 [151]214,16:[153]:[129]i[178]0[164]5:[153][163]20[171]([195](b9$(i))[173]2))""b9$(i):[130]
  236. 60099 [142]
  237.